home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / pascal / tvtool2.zip / TVCONST.PAS < prev    next >
Pascal/Delphi Source File  |  1993-07-20  |  4KB  |  160 lines
  1. {*
  2. *   TV Tool Box Version 2.0
  3. *   Copyright (c) 1992, 1993 by Richard W. Hansen
  4. *   All Rights Reserved
  5. *
  6. *
  7. *   TvConst.pas
  8. *   Turbo Vision command constants for Turbo Pascal 7.0.
  9. *
  10. *}
  11.  
  12. UNIT TvConst;
  13.  
  14. {$I TVDEFS.INC}
  15.  
  16. INTERFACE
  17.  
  18. { Some keyboard constants Borland left out. }
  19.  
  20. CONST
  21.   kbCtrlA = $1E01;
  22.   kbCtrlB = $3002;
  23.   kbCtrlC = $2E03;
  24.   kbCtrlD = $2004;
  25.   kbCtrlE = $1205;
  26.   kbCtrlF = $2106;
  27.   kbCtrlG = $2207;
  28.   kbCtrlH = $2308;
  29.   kbCtrlI = $1709;
  30.   kbCtrlJ = $240A;
  31.   kbCtrlK = $250B;
  32.   kbCtrlL = $260C;
  33.   kbCtrlM = $320D;
  34.   kbCtrlN = $310E;
  35.   kbCtrlO = $180F;
  36.   kbCtrlP = $1910;
  37.   kbCtrlQ = $1011;
  38.   kbCtrlR = $1312;
  39.   kbCtrlS = $1F13;
  40.   kbCtrlT = $1414;
  41.   kbCtrlU = $1615;
  42.   kbCtrlV = $2F16;
  43.   kbCtrlW = $1117;
  44.   kbCtrlX = $2D18;
  45.   kbCtrlY = $1519;
  46.   kbCtrlZ = $2C1A;
  47.  
  48.  
  49. CONST
  50.   cmTVTtool1      = 246;
  51.   cmFirstPage     = cmTVTtool1;
  52.   cmLastPage      = cmFirstPage + 1;
  53.   cmNextPage      = cmFirstPage + 2;
  54.   cmPrevPage      = cmFirstPage + 3;
  55.   cmMaximize      = cmFirstPage + 4;
  56.   cmMinimize      = cmFirstPage + 5;
  57.   cmStartJob      = cmFirstPage + 6;
  58.   cmPauseJob      = cmFirstPage + 7;
  59.   cmContinueJob   = cmFirstPage + 8;
  60.   cmCancelJob     = cmFirstPage + 9;
  61.  
  62.   cmTVTtool2      = 10000;
  63.   cmMarkStart     = cmTVTtool2;
  64.   cmMarkEnd       = cmTVTtool2 + 1000;
  65.   cmCursorMoved   = cmTVTtool2 + 1001;
  66.   cmUpdateView    = cmTVTtool2 + 1002;
  67.   cmEditView      = cmTVTtool2 + 1003;
  68.   cmPrint         = cmTVTtool2 + 1004;
  69.   cmJobComplete   = cmTVTtool2 + 1005;
  70.   cmPopMenu       = cmTVTtool2 + 1006;
  71.   cmTakeItem      = cmTVTtool2 + 1007;
  72.   cmDisplayStr    = cmTVTtool2 + 1008;
  73.   cmDisplayClr    = cmTVTtool2 + 1009;
  74.   cmDragView      = cmTVTtool2 + 1010;
  75.   cmIdentify      = cmTVTtool2 + 1011;
  76.   cmSetId         = cmTVTtool2 + 1012;
  77.   cmFieldError    = cmTVTtool2 + 1013;
  78.  
  79.  
  80. CONST
  81.   ofPosIndicator  = $1000;
  82.   ofVScrollBar    = $2000;
  83.   ofHScrollBar    = $4000;
  84.  
  85.  
  86.   (*  Picture strings for TPxPictureValidators
  87.  
  88.    Type of character     Character    Description
  89.    --------------------------------------------------------------------
  90.    Special
  91.                          #            Accept only a digit
  92.                          ?            Accept only a letter
  93.                                       (case-insensitive)
  94.                          &            Accept only a letter, force to
  95.                                       uppercase
  96.                          @            Accept any character
  97.                          !            Accept any character, force to
  98.                                       uppercase
  99.    Match
  100.                          ;            Take next character literally
  101.                          *            Repetition count
  102.                          []           Option
  103.                          {}           Grouping operators
  104.                          ,            Set of alternatives
  105.    All others                         Taken literally
  106.  
  107.   *)
  108.  
  109. CONST
  110.   UnsignedPic1      = '#[#][#]*{[;,]###}';
  111.     { unsigned int with optional commas }
  112. CONST
  113.   UnsignedPic2      = '#[#][#]*{;,###}';
  114.     { unsigned int with commas }
  115. CONST
  116.   SignedPic1        = '[-]#[#][#]*{[;,]###}';
  117.     { signed int with optional commas }
  118. CONST
  119.   SignedPic2        = '[-]#[#][#]*{;,###}';     {
  120.     { signed int with commas }
  121. CONST
  122.   MoneyPic1         = '[$]*#.{##,00}';
  123.     { dollars, with comma and optinal dollar sign }
  124. CONST
  125.   MoneyPic2         = '$*#{.##,.00}';
  126.     { dollars, with comma and dollar sign }
  127. CONST
  128.   DatePic1          = '#[#]/#[#]/##';
  129.     { date with 2 digit year (dd/mm/yy or mm/dd/yy) }
  130. CONST
  131.   DatePic2          = '#[#]/#[#]/##[##]';
  132.     { date with 2 or 4 digit year (mm/dd/yy or mm/dd/yyyy) }
  133. CONST
  134.   DatePic3          = '#[#]/#[#]/####';
  135.     { date with 4 digit year (mm/dd/yyyy) }
  136. CONST
  137.   TimePic1          = '{##}:{##}[:{##}]';
  138.     { HH:MM:SS with optional seconds }
  139. CONST
  140.   TimePic2          = '{##}:{##}:{##}';
  141.     { HH:MM:SS }
  142. CONST
  143.   PhonePic1         = '[(###) ]###-####';
  144.     { phone number with optional area code }
  145. CONST
  146.   PhonePic2         = '(###) ###-####';
  147.     { phone number with area code }
  148. CONST
  149.   SSNPic            = '###-##-####';
  150. CONST
  151.   FirstCharUpPic    = '*{&*? }';
  152.     { uppercase the first char of every word }
  153. CONST
  154.   FilenamePic       = '{&*7[&]}.{*3[&]}';
  155.     { filename (no path) with extension }
  156.  
  157.  
  158. IMPLEMENTATION
  159. END.
  160.